home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
keyb
/
pan.zip
/
FORMAT.PAN
< prev
next >
Wrap
Text File
|
1990-02-09
|
1KB
|
37 lines
******************************************************
*** ***
*** PAN script for use with the DOS Format utility ***
*** ***
******************************************************
IfLoad "c:\dos\format.com"
Else
Output "^M^J^GPAN is unable to load the format program. Please edit the file FORMAT.PAN and^M^J"
Output "correct the 'IfLoad' command to include the appropriate pathname for PAN to^M^J"
Output "locate the file FORMAT.COM on your PC."
Quit
EndIf
Output "Enter drive, A or B: "
Label try_again
GetKey
IfKey "Aa"
Output "A^M^J"
Go "A:"
Jump waiter
EndIf
IfKey "Bb"
Output "B^M^J"
Go "B:"
Jump waiter
EndIf
IfKey "[Esc]^C"
Quit
Else
Output "^G"
Jump try_again
EndIf
Label waiter
Key "[Enter]"
WaitChild
Quit